unit Unit2;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompButton,
  Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWCompEdit;

type
  TfrmCarregaArquivo = class(TIWAppForm)
    IWFile1: TIWFile;
    btnCarregar: TIWButton;
    btnCancelar: TIWButton;
    procedure btnCancelarClick(Sender: TObject);
    procedure btnCarregarClick(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}


procedure TfrmCarregaArquivo.btnCancelarClick(Sender: TObject);
begin
  Hide;
end;

procedure TfrmCarregaArquivo.btnCarregarClick(Sender: TObject);
begin
  IWFIle1.SaveToFile('files\' + IWFile1.Filename);
  Hide;
end;

end.
